Skip to main content
This forum is closed to new posts and responses. Individual names altered for privacy purposes. The information contained in this website is provided for informational purposes only and should not be construed as a forum for customer support requests. Any customer support requests should be directed to the official HCL customer support channels below:

HCL Software Customer Support Portal for U.S. Federal Government clients
HCL Software Customer Support Portal

Notes/Domino 6 and 7 Forum

Notes/Domino 6 and 7 Forum


PreviousPrevious NextNext

~Maria Eltumimarikle 28.Jan.04 02:50 PM a Web browser
Domino Designer 6.0.2 CF1 Windows 2000

what about replacing the Formula Language:


with lotusscript:

'*** Declarations
Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim uidoc As NotesUIDocument
Dim bookmark As NotesDocument
Dim rtitem As Notesrichtextitem

'*** Current document
Set db = session.CurrentDatabase
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
Call uidoc.Close(True)

'***Create the bookmark document
Set bookmark = New NotesDocument( db )
'***add a doclink to the bookmark - DOES NOT WORK !!! ***
'***create a new rich text Body field on the document - tried differnet solutions ???
Set rtitem = bookmark.CreateRichTextItem("Body")
Call rtitem.AppendDocLink( doc, InheritedDbTitle ) 'place a doclink in the Body field

'add content to the bookmark
bookmark.Form = "Bookmark"
bookmark.Subject = "Verknüpfungsnachricht: " & doc.Subject(0)
bookmark.InheritedDBTitle = db.Title
bookmark.InheritedSubject = doc.Subject(0)
'bookmark.FlowStatus = "Please review the following document"
bookmark.~_ViewIcon = 11 'view icons appear in the Inbox, 1-175
bookmark.CopyTo = ""
bookmark.BlindCopyTo = session.Username 'blind carbon copy the current user
Call bookmark.MakeResponse(doc)
Call ws.EditDocument(True, bookmark)

Any idea?
Your help will be much appreciated

AppendDocLink composing and editing... (~Maria Eltumima... 28.Jan.04)
. . RE: AppendDocLink composing and edi... (~Bill Quetfooch... 28.Jan.04)
. . . . Cool - Thanks A Lot , Morten - Work... (~Maria Eltumima... 28.Jan.04)

  Document options
Print this pagePrint this page

 Search this forum

  Forum views and search
Date (threaded)
Date (flat)
With excerpt
Advanced search

 RSS feedsRSS
All forum posts RSS
All main topics RSS